object Unity_SiparisCekmeF: TUnity_SiparisCekmeF
  Left = 276
  Top = 97
  BorderStyle = bsSingle
  Caption = 'Unity Sipari'#351' '#199'ekme'
  ClientHeight = 564
  ClientWidth = 905
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label2: TLabel
    Left = 24
    Top = 528
    Width = 24
    Height = 14
    Caption = 'Unity'
    Transparent = True
    Visible = False
  end
  object Label3: TLabel
    Left = 88
    Top = 528
    Width = 97
    Height = 14
    Alignment = taCenter
    AutoSize = False
    Caption = 'Casper'
    Transparent = True
    Visible = False
  end
  object Label9: TLabel
    Left = 355
    Top = 496
    Width = 23
    Height = 14
    Hint = 'bikerelik bir i'#351'lem i'#231'in yap'#305'ld'#305' ge'#231'ici'
    Caption = 'Tarih'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object chkTumGunList: TCheckBox
    Left = 116
    Top = 508
    Width = 162
    Height = 17
    Hint = 'bikerelik bir i'#351'lem i'#231'in yap'#305'ld'#305' ge'#231'ici'
    Caption = 'T'#252'm G'#252'n'#252'n Sipari'#351'lerini Al'
    TabOrder = 0
    Visible = False
  end
  object cbxTumGunTarih: TwwDBDateTimePicker
    Left = 388
    Top = 495
    Width = 121
    Height = 22
    Hint = 'bikerelik bir i'#351'lem i'#231'in yap'#305'ld'#305' ge'#231'ici'
    CalendarAttributes.Font.Charset = DEFAULT_CHARSET
    CalendarAttributes.Font.Color = clWindowText
    CalendarAttributes.Font.Height = -11
    CalendarAttributes.Font.Name = 'MS Sans Serif'
    CalendarAttributes.Font.Style = []
    Epoch = 1950
    ShowButton = True
    TabOrder = 1
    DisplayFormat = 'dd.mm.yyyy'
    Visible = False
  end
  object M: TMemo
    Left = 768
    Top = 8
    Width = 185
    Height = 489
    ScrollBars = ssVertical
    TabOrder = 2
    Visible = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 189
    Height = 564
    Align = alLeft
    Caption = '  Sipari'#351' '#199'ekme  '
    TabOrder = 3
    object Panel4: TPanel
      Left = 2
      Top = 16
      Width = 185
      Height = 96
      Align = alTop
      AutoSize = True
      BevelOuter = bvNone
      TabOrder = 0
      object bsiparisiaktar: TBitBtn
        Left = 7
        Top = 20
        Width = 167
        Height = 50
        Caption = 'Sipari'#351'leri Aktar'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = bsiparisiaktarClick
      end
      object StaticText1: TStaticText
        Left = 97
        Top = 0
        Width = 84
        Height = 18
        AutoSize = False
        Caption = 'Aktar'#305'lan :'
        TabOrder = 1
      end
      object StaticText2: TStaticText
        Left = 7
        Top = 0
        Width = 83
        Height = 18
        AutoSize = False
        Caption = 'Toplam :'
        TabOrder = 2
      end
      object Kilitle: TButton
        Left = 8
        Top = 75
        Width = 167
        Height = 21
        Caption = 'Aktar'#305'm Kilitle'
        TabOrder = 3
        TabStop = False
        WordWrap = True
        OnClick = KilitleClick
      end
    end
    object Panel5: TPanel
      Left = 2
      Top = 502
      Width = 185
      Height = 60
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object ttnetsiparisleric: TCheckBox
        Left = 20
        Top = 4
        Width = 97
        Height = 17
        Caption = 'TTNet Sipari'#351'leri'
        TabOrder = 0
        Visible = False
      end
      object bsiparisidegistir: TBitBtn
        Left = 9
        Top = 21
        Width = 160
        Height = 38
        Caption = 'Sipari'#351'i De'#287'i'#351'tir'
        TabOrder = 1
        OnClick = bsiparisidegistirClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 2
      Top = 112
      Width = 185
      Height = 390
      Align = alClient
      Caption = 'De'#287'i'#351'en Sipari'#351'ler'
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      object wwDBGrid1: TwwDBGrid
        Left = 1
        Top = 15
        Width = 183
        Height = 374
        DisableThemes = False
        Selected.Strings = (
          'siparisno'#9'20'#9'Sipari'#351' No'#9'F')
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alClient
        DataSource = DegisenSiparislerS
        KeyOptions = [dgEnterToTab]
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
        TabOrder = 0
        TitleAlignment = taLeftJustify
        TitleFont.Charset = TURKISH_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        UseTFields = False
        OnDblClick = wwDBGrid1DblClick
        PaintOptions.AlternatingRowColor = 16250871
      end
      object DegisenlerP: TPanel
        Left = 7
        Top = 217
        Width = 153
        Height = 123
        Caption = 'DegisenlerP'
        TabOrder = 1
        Visible = False
        object Degisenlerk: TMemo
          Left = 3
          Top = 3
          Width = 146
          Height = 171
          Lines.Strings = (
            'Degisenlerk')
          TabOrder = 0
        end
      end
    end
  end
  object Panel6: TPanel
    Left = 189
    Top = 0
    Width = 716
    Height = 564
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 4
    object GroupBox3: TGroupBox
      Left = 1
      Top = 1
      Width = 714
      Height = 276
      Align = alClient
      Caption = '  Yeni Sipari'#351'  '
      TabOrder = 0
      object Panel1: TPanel
        Left = 2
        Top = 16
        Width = 710
        Height = 258
        Align = alClient
        BevelOuter = bvNone
        Caption = 'v'
        TabOrder = 0
        object Grid1: TwwDBGrid
          Left = 0
          Top = 27
          Width = 710
          Height = 231
          DisableThemes = False
          ControlType.Strings = (
            'durum;CustomEdit;durumk;F')
          Selected.Strings = (
            'stokkodu'#9'28'#9'Stok Kodu'#9'F'
            'miktar'#9'8'#9'Miktar'#9'F'
            'birimfiyat'#9'13'#9'Birim Fiyat'#9'F'
            'toplamfiyat'#9'13'#9'Toplam Fiyat'#9'F'
            'durum'#9'20'#9'H.Durumu'#9'F')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          Color = clInfoBk
          DataSource = DegisenSiparisHarS
          KeyOptions = [dgEnterToTab]
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = TURKISH_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          UseTFields = False
        end
        object durumk: TwwDBComboBox
          Left = 184
          Top = 168
          Width = 121
          Height = 22
          ShowButton = True
          Style = csDropDown
          MapList = True
          AllowClearKey = False
          DropDownCount = 8
          ItemHeight = 0
          Items.Strings = (
            'Listeye Aktar'#305'lacak'#9'1'
            'Listeye Aktar'#305'ld'#305#9'2'
            'Beklemeye Al'#305'nd'#305#9'3'
            'Makineye Tak'#305'ld'#305#9'4'
            'Oem Verildi'#9'5'
            #304#351'lem Yap'#305'lmayacak'#9'6')
          Sorted = False
          TabOrder = 1
          UnboundDataType = wwDefault
        end
        object Panel7: TPanel
          Left = 0
          Top = 0
          Width = 710
          Height = 27
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 2
          object Label7: TLabel
            Left = 7
            Top = 4
            Width = 23
            Height = 14
            Caption = 'Tarih'
            Font.Charset = TURKISH_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label5: TLabel
            Left = 127
            Top = 4
            Width = 47
            Height = 14
            Caption = 'Cari Kodu'
            Font.Charset = TURKISH_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label1: TLabel
            Left = 313
            Top = 4
            Width = 43
            Height = 14
            Caption = 'A'#231#305'klama'
            Font.Charset = TURKISH_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object wwDBComboBox1: TwwDBComboBox
            Left = 36
            Top = 1
            Width = 76
            Height = 22
            TabStop = False
            ShowButton = False
            Style = csDropDown
            MapList = False
            AllowClearKey = False
            Color = clInfoBk
            DataField = 'tarih'
            DataSource = DegisenSiparisS
            DropDownCount = 8
            Font.Charset = TURKISH_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ItemHeight = 0
            ParentFont = False
            ReadOnly = True
            Sorted = False
            TabOrder = 0
            UnboundDataType = wwDefault
          end
          object wwDBEdit4: TwwDBEdit
            Left = 179
            Top = 1
            Width = 116
            Height = 22
            TabStop = False
            Color = clInfoBk
            DataField = 'carikodu'
            DataSource = DegisenSiparisS
            Font.Charset = TURKISH_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
          object wwDBEdit1: TwwDBEdit
            Left = 364
            Top = 1
            Width = 336
            Height = 22
            TabStop = False
            Color = clInfoBk
            DataField = 'aciklama'
            DataSource = DegisenSiparisS
            Font.Charset = TURKISH_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 2
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
          end
        end
      end
    end
    object grpEskiSiparisK: TGroupBox
      Left = 1
      Top = 277
      Width = 714
      Height = 248
      Align = alBottom
      Caption = '  Eski Sipari'#351'  '
      TabOrder = 1
      object Panel2: TPanel
        Left = 2
        Top = 16
        Width = 710
        Height = 230
        Align = alClient
        BevelOuter = bvNone
        Caption = 'v'
        TabOrder = 0
        object Label4: TLabel
          Left = 127
          Top = 8
          Width = 47
          Height = 14
          Caption = 'Cari Kodu'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label6: TLabel
          Left = 313
          Top = 8
          Width = 43
          Height = 14
          Caption = 'A'#231#305'klama'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label8: TLabel
          Left = 7
          Top = 8
          Width = 23
          Height = 14
          Caption = 'Tarih'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object wwDBEdit2: TwwDBEdit
          Left = 179
          Top = 5
          Width = 116
          Height = 22
          TabStop = False
          Color = clInfoBk
          DataField = 'carikodu'
          DataSource = EskiSiparisS
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object wwDBEdit3: TwwDBEdit
          Left = 364
          Top = 5
          Width = 336
          Height = 22
          TabStop = False
          Color = clInfoBk
          DataField = 'aciklama'
          DataSource = EskiSiparisS
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object Grid2: TwwDBGrid
          Left = 0
          Top = 33
          Width = 710
          Height = 197
          DisableThemes = False
          ControlType.Strings = (
            'XXXDurum;CustomEdit;durum2k;T')
          Selected.Strings = (
            'stokkodu'#9'28'#9'Stok Kodu'#9'F'
            'miktar'#9'8'#9'Miktar'#9'F'
            'birimfiyat'#9'13'#9'Birim Fiyat'#9'F'
            'toplamfiyat'#9'13'#9'Toplam Fiyat'#9'F'
            'XXXDurum'#9'20'#9'H.Durumu'#9'F')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alBottom
          Color = clInfoBk
          DataSource = EskiSiparisHarS
          KeyOptions = [dgEnterToTab]
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
          PopupMenu = PopupMenu1
          TabOrder = 2
          TitleAlignment = taLeftJustify
          TitleFont.Charset = TURKISH_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          UseTFields = False
        end
        object durum2k: TwwDBComboBox
          Left = 296
          Top = 112
          Width = 124
          Height = 22
          ShowButton = True
          Style = csDropDown
          MapList = True
          AllowClearKey = False
          DropDownCount = 8
          ItemHeight = 0
          Items.Strings = (
            'Sipari'#351' Planlama'#9'1'
            'Planland'#305#9'2'
            'Beklemeye Al'#305'nd'#305#9'3'
            'Emir Listesinde'#9'4'
            'Emir Verilmi'#351#9'5'
            'Stoktan Verilmi'#351#9'6'
            'Faturas'#305' Kesilmi'#351#9'7')
          Sorted = False
          TabOrder = 3
          UnboundDataType = wwDefault
        end
        object wwDBComboBox2: TwwDBComboBox
          Left = 36
          Top = 5
          Width = 76
          Height = 22
          TabStop = False
          ShowButton = False
          Style = csDropDown
          MapList = False
          AllowClearKey = False
          Color = clInfoBk
          DataField = 'tarih'
          DataSource = EskiSiparisS
          DropDownCount = 8
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          ReadOnly = True
          Sorted = False
          TabOrder = 4
          UnboundDataType = wwDefault
        end
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 525
      Width = 714
      Height = 38
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      OnDblClick = Panel3DblClick
      DesignSize = (
        714
        38)
      object bsiparisigor: TBitBtn
        Left = 16
        Top = 4
        Width = 99
        Height = 31
        Caption = 'Sipari'#351'i G'#246'r'
        TabOrder = 0
        Visible = False
        OnClick = bsiparisigorClick
      end
      object BitBtn4: TBitBtn
        Left = 626
        Top = 4
        Width = 85
        Height = 31
        Anchors = [akRight, akBottom]
        Caption = 'Kapat'
        TabOrder = 1
        OnClick = BitBtn4Click
      end
      object bsiparissil: TBitBtn
        Left = 528
        Top = 4
        Width = 85
        Height = 31
        Anchors = [akRight, akBottom]
        Caption = 'Sipari'#351' Sil'
        TabOrder = 2
        Visible = False
        OnClick = bsiparissilClick
      end
      object cbCekilmemisleriCek: TwwCheckBox
        Left = 173
        Top = 9
        Width = 120
        Height = 17
        TabStop = False
        DisableThemes = False
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = #199'ekilmemi'#351'leri '#199'ek'
        TabOrder = 3
        Visible = False
      end
      object seGun: TSpinEdit
        Left = 301
        Top = 7
        Width = 73
        Height = 23
        TabStop = False
        MaxValue = 0
        MinValue = 0
        TabOrder = 4
        Value = 7
        Visible = False
      end
    end
  end
  object Casper_SiparisYaz: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Unity_Siparis_2006 Where id=0')
    Left = 872
    Top = 104
  end
  object Casper_SiparisHarYaz: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Unity_SiparisHar_2006 Where id=0')
    Left = 872
    Top = 152
  end
  object CariBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'LOGICALREF'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      
        'select Top 1 caspercarikodu=carikodu,CODE=Carikodu,caspercarikod' +
        '=Carikod,'
      'Guzergahkod,CITYCODE=sehirkod,TESLIMATSEKLI'
      'From cari'
      'where LOGICALREF=:LOGICALREF'
      'order by carikod Desc')
    Left = 320
    Top = 216
  end
  object StokBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Krm'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'unitystokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select stokkod,ambar,stokkodu,'
      
        '(Case When isnull(GrupKodu,'#39#39')='#39'Karma'#39'  AND 2=:Krm Then 2  When ' +
        'isnull(GrupKodu,'#39#39')='#39'Karma'#39' Then 6 Else isnull(UnityCardType,0) ' +
        'end)  UnityCardType'
      'from stok'
      'where unitystokkod=:unitystokkod')
    Left = 616
    Top = 400
  end
  object SiparisVarmi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'UnityDB'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select id,siparisdegisti From Unity_Siparis_2006'
      'where id=:id and UnityDB=:UnityDB')
    Left = 768
    Top = 320
  end
  object MaxZaman: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 100
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'SELECT zaman=MAX((Convert(Varchar(8),FLDSTATDATE,112)+STR(FLDSTA' +
        'TTIME))) FROM LG_XT052001_018')
    Left = 968
    Top = 16
  end
  object soncekiszamani: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Left = 824
    Top = 440
  end
  object StatuDegisenVarmi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select id,siparisdegisti,unitystatu From Unity_Siparis_2006'
      'where id=:id')
    Left = 376
    Top = 632
  end
  object Casper_DegisenSiparisYaz: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Unity_DegisenSiparis_2006 Where id=0')
    Left = 872
    Top = 208
  end
  object Casper_DegisenSiparisHarYaz: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Unity_DegisenSiparisHar_2006 Where id=0')
    Left = 872
    Top = 264
  end
  object DegisipYazilanSiparisVarmi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'UnityDB'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select id,siparisdegisti From Unity_DegisenSiparis_2006'
      'where id=:id'
      'and UnityDB=:UnityDB')
    Left = 272
    Top = 544
  end
  object Casper_Siparis: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from Unity_Siparis_2006 Where id=:id')
    Left = 496
    Top = 632
  end
  object DegisenSiparislerS: TDataSource
    DataSet = DegisenSiparisler
    Left = 312
    Top = 456
  end
  object Casper_DegisenSiparisSil: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Size = -1
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'delete from Unity_DegisenSiparis_2006 Where id=:id')
    Left = 160
    Top = 584
  end
  object Casper_DegisenSiparisHarSil: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'delete from Unity_DegisenSiparishar_2006 Where siparisid=:id')
    Left = 224
    Top = 632
  end
  object DegisenSiparisler: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    AfterOpen = DegisenSiparislerAfterScroll
    AfterScroll = DegisenSiparislerAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select id,siparisno from Unity_DegisenSiparis_2006')
    Left = 432
    Top = 448
  end
  object Casper_SiparisHar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select *,stokkodu=dbo.getstokkodu(stokkod) from Unity_SiparisHar' +
        '_2006 Where siparisid=:id')
    Left = 380
    Top = 414
  end
  object Casper_DegisenSiparis: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from Unity_DegisenSiparis_2006 Where id=:id')
    Left = 544
    Top = 56
  end
  object Casper_DegisenSiparisHar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from Unity_DegisenSiparisHar_2006 Where siparisid=:id')
    Left = 552
    Top = 112
  end
  object DegisenIcinSiparisleriYaz: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 96
    Top = 544
  end
  object Casper_SiparisHardaVarmi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select * from Unity_SiparisHar_2006 Where id=:id')
    Left = 320
    Top = 608
  end
  object DegisenSiparis: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select carikodu=(select carikodu from cari where cari.carikod=un' +
        'ity_siparis_2006.carikod),'
      
        '       firmaadi=(select firmaadi from cari where cari.carikod=un' +
        'ity_siparis_2006.carikod),'
      
        '       temsilcisi=(select temsilcisi from cari where cari.cariko' +
        'd=unity_siparis_2006.carikod),'
      '       * from unity_siparis_2006'
      'where id=33924'
      ''
      '')
    Left = 256
    Top = 408
  end
  object DegisenSiparisHarS: TDataSource
    DataSet = DegisenSiparisHar
    Left = 544
    Top = 592
  end
  object DegisenSiparisS: TDataSource
    DataSet = DegisenSiparis
    Left = 573
    Top = 466
  end
  object DegisenSiparisHar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select stokkodu,cinsi,ozkod1,unity_siparishar_2006.* from unity_' +
        'siparishar_2006,stok where stok.stokkod=unity_siparishar_2006.st' +
        'okkod  and'
      ' siparisid=31090'
      '')
    Left = 632
    Top = 616
  end
  object EskiSiparis: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select carikodu=(select carikodu from cari where cari.carikod=un' +
        'ity_siparis_2006.carikod),'
      
        '       firmaadi=(select firmaadi from cari where cari.carikod=un' +
        'ity_siparis_2006.carikod),'
      
        '       temsilcisi=(select temsilcisi from cari where cari.cariko' +
        'd=unity_siparis_2006.carikod),'
      '       * from unity_siparis_2006'
      'where id=33924'
      ''
      '')
    Left = 944
    Top = 528
  end
  object EskiSiparisHarS: TDataSource
    DataSet = EskiSiparisHar
    Left = 624
    Top = 560
  end
  object EskiSiparisS: TDataSource
    DataSet = EskiSiparis
    Left = 643
    Top = 461
  end
  object EskiSiparisHar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select XXXDurum=Durum,stokkodu,cinsi,ozkod1,unity_siparishar_200' +
        '6.* from unity_siparishar_2006,stok where stok.stokkod=unity_sip' +
        'arishar_2006.stokkod  and'
      ' siparisid=31090'
      '')
    Left = 696
    Top = 512
  end
  object unity_emirlistesi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'siparisharid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from unity_emirlistesi where siparisharid=:siparisharid')
    Left = 544
    Top = 248
  end
  object Eslestirilen_fatharhar_sil: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'siparisharid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update fatharhar'
      'set siparisharid=null'
      'where siparisharid=:siparisharid')
    Left = 800
    Top = 576
  end
  object Casper_StokBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select stokkodu from stok where stokkod=:stokkod')
    Left = 1000
    Top = 624
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = Timer1Timer
    Left = 408
    Top = 580
  end
  object SiparisVarmiSiparisNoQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'siparisno'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 9
        Value = Null
      end
      item
        Name = 'UnityDB'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select id,siparisdegisti From Unity_Siparis_2006'
      'where siparisno=:siparisno'
      'and UnityDB=:UnityDB')
    Left = 768
    Top = 368
  end
  object DurumDuzeltQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update unity_siparishar_2006'
      'set durum=1'
      'where siparisid=:siparisid'
      '')
    Left = 248
    Top = 344
  end
  object DurumDuzeltDegisenQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update unity_degisensiparishar_2006'
      'set durum=1'
      'where siparisid=:siparisid'
      '')
    Left = 784
    Top = 520
  end
  object PopupMenu1: TPopupMenu
    Left = 480
    Top = 578
    object MakineNumaralarnGster1: TMenuItem
      Caption = 'Makine Numaralar'#305'n'#305' G'#246'ster'
      OnClick = MakineNumaralarnGster1Click
    end
  end
  object UremriNoBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'siparisharid'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select aktarilanuremrino from unity_emirlistesi where siparishar' +
        'id=:siparisharid')
    Left = 411
    Top = 120
  end
  object StandartQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 72228
      end>
    Prepared = True
    SQL.Strings = (
      'select siparisid from unity_siparishar_2006 u '
      
        'where siparisid=:siparisid and durum is not null and (select sto' +
        'kkod from standartlistesi s where s.stokkod=u.stokkod) is null')
    Left = 944
    Top = 472
  end
  object SevkiyatHesabiBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'siparisharid'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select aktarilanuremrino from unity_emirlistesi where siparishar' +
        'id=:siparisharid')
    Left = 299
    Top = 56
  end
  object CariKodBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'firmaadi'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 60
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select top 1 caspercarikod from unity_cari'
      'where DEFINITION_ = :firmaadi')
    Left = 680
    Top = 64
  end
  object maxttnetsiparisnoQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 688
    Top = 128
  end
  object Unity_SiparisAl: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 100
    Parameters = <
      item
        Name = 'baszaman'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 14
        Precision = 14
        Size = 14
        Value = Null
      end
      item
        Name = 'bitzaman'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 14
        Precision = 14
        Size = 14
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT sevkiyatkod=(SELECT LOGICALREF FROM LG_018_SHIPINFO with(' +
        'nolock) WHERE LG_018_SHIPINFO.LOGICALREF=LG_018_01_ORFICHE.SHIPI' +
        'NFOREF),sevkiyatkodu=(SELECT NAME FROM LG_018_SHIPINFO with(nolo' +
        'ck) WHERE LG_018_SHIPINFO.LOGICALREF=LG_018_01_ORFICHE.SHIPINFOR' +
        'EF),unitycarikodu=(select code from LG_018_CLCARD with(nolock) w' +
        'here LG_018_CLCARD.LOGICALREF=LG_018_01_ORFICHE.CLIENTREF),LOGIC' +
        'ALREF,FICHENO,CLIENTREF,DATE_,SPECODE,REPORTNET,STATUS,GENEXP1,G' +
        'ENEXP2,SOURCEINDEX,TOTALVAT,GENEXP3,GENEXP4  '
      'FROM  LG_018_01_ORFICHE '
      'with(nolock) WHERE LOGICALREF IN '
      '('
      'select PARLOGREF from LG_XT052001_018 with(nolock)'
      
        'where (Convert(Varchar(8),FLDSTATDATE,112)+STR(FLDSTATTIME))>:ba' +
        'szaman and (Convert(Varchar(8),FLDSTATDATE,112)+STR(FLDSTATTIME)' +
        ')<=:bitzaman'
      ')'
      'AND STATUS=4 AND (SOURCEINDEX=0 or SOURCEINDEX=6)')
    Left = 776
    Top = 48
  end
  object Unity_SiparisHarAl: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 100
    Parameters = <
      item
        Name = 'baszaman'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 14
        Precision = 14
        Size = 4
        Value = Null
      end
      item
        Name = 'bitzaman'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 14
        Precision = 14
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT unitystokkodu=(select code from LG_018_ITEMS with(nolock)' +
        ' where LG_018_ITEMS.LOGICALREF=LG_018_01_ORFLINE.STOCKREF),LOGIC' +
        'ALREF,ORDFICHEREF,STOCKREF,AMOUNT,PRPRICE FROM  LG_018_01_ORFLIN' +
        'E WHERE LINETYPE=0 AND ORDFICHEREF IN'
      '('
      
        '  SELECT LOGICALREF FROM LG_018_01_ORFICHE with(nolock) WHERE LO' +
        'GICALREF IN '
      '  ('
      '    select PARLOGREF from LG_XT052001_018 with(nolock) '
      
        '    where (Convert(Varchar(8),FLDSTATDATE,112)+STR(FLDSTATTIME))' +
        '>:baszaman and (Convert(Varchar(8),FLDSTATDATE,112)+STR(FLDSTATT' +
        'IME))<=:bitzaman'
      '  )'
      '  AND STATUS=4 AND (SOURCEINDEX=0 or SOURCEINDEX=6)'
      ')')
    Left = 776
    Top = 104
  end
  object AdoLineSipSil: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Sip1'
        Size = -1
        Value = Null
      end
      item
        Name = 'Sip2'
        Size = -1
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      ''
      'delete from unity_siparishar_2006 where siparisid in ('
      'select id from unity_siparis_2006 where siparisno=:Sip1'
      ')'
      'delete unity_siparis_2006 where siparisno=:Sip2')
    Left = 424
    Top = 216
  end
end
